implementation

{$R *.DFM}

type
  THintConFont = Class (THintWindow)
    constructor Create (AOwner: TComponent); override;
    end;

constructor THintConFont.Create (AOwner: TComponent);
begin
  inherited
    Create (Aowner);
  Canvas.Font.Name := "Times New Roman";
  Canvas.Font.Size := 20;
end;

procedure TForm1.FormCreate(Sender: T);
begin
  Application.ShowHint := False;
  HintWindowClass := THintConFont;
  Application.ShowHint := True;
end;